home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbbook13 / vbbook13.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.5 KB  |  109 lines
  1. VERSION 2.00
  2. Begin Form VBBook 
  3.    BackColor       =   &H00FF0000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "VB Book"
  6.    ClientHeight    =   2715
  7.    ClientLeft      =   1620
  8.    ClientTop       =   1785
  9.    ClientWidth     =   6840
  10.    Height          =   3120
  11.    Icon            =   VBBOOK13.FRX:0000
  12.    Left            =   1560
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   2715
  18.    ScaleWidth      =   6840
  19.    Top             =   1440
  20.    Width           =   6960
  21.    Begin Timer Timer1 
  22.       Interval        =   10000
  23.       Left            =   0
  24.       Top             =   2280
  25.    End
  26.    Begin Frame Frame1 
  27.       BackColor       =   &H00FFFFFF&
  28.       ForeColor       =   &H00000000&
  29.       Height          =   2415
  30.       Left            =   240
  31.       TabIndex        =   0
  32.       Top             =   120
  33.       Width           =   6375
  34.       Begin CommandButton go1 
  35.          Caption         =   "Go"
  36.          Height          =   375
  37.          Left            =   2640
  38.          TabIndex        =   3
  39.          Top             =   1800
  40.          Width           =   615
  41.       End
  42.       Begin Label Label3 
  43.          Alignment       =   2  'Center
  44.          Caption         =   "Version 1.3, 30 Mar 93"
  45.          FontBold        =   -1  'True
  46.          FontItalic      =   0   'False
  47.          FontName        =   "MS Sans Serif"
  48.          FontSize        =   12
  49.          FontStrikethru  =   0   'False
  50.          FontUnderline   =   0   'False
  51.          ForeColor       =   &H00800000&
  52.          Height          =   495
  53.          Left            =   1320
  54.          TabIndex        =   4
  55.          Top             =   1080
  56.          Width           =   3255
  57.       End
  58.       Begin Label Label2 
  59.          Caption         =   "by Dennis Scott"
  60.          FontBold        =   -1  'True
  61.          FontItalic      =   -1  'True
  62.          FontName        =   "MS Sans Serif"
  63.          FontSize        =   8.25
  64.          FontStrikethru  =   0   'False
  65.          FontUnderline   =   0   'False
  66.          ForeColor       =   &H00008080&
  67.          Height          =   255
  68.          Left            =   2160
  69.          TabIndex        =   2
  70.          Top             =   720
  71.          Width           =   1935
  72.       End
  73.       Begin Label Label1 
  74.          Caption         =   "VB Book"
  75.          FontBold        =   -1  'True
  76.          FontItalic      =   0   'False
  77.          FontName        =   "MS Sans Serif"
  78.          FontSize        =   18
  79.          FontStrikethru  =   0   'False
  80.          FontUnderline   =   0   'False
  81.          ForeColor       =   &H000000FF&
  82.          Height          =   495
  83.          Left            =   2160
  84.          TabIndex        =   1
  85.          Top             =   240
  86.          Width           =   1815
  87.       End
  88.    End
  89. 'This form is the initial Title Box
  90. Sub Form_Load ()
  91.     CenterForm vbbook
  92.     vbbook.Show
  93. End Sub
  94. Sub GO1_Click ()
  95.     vbbook.Hide            'dispose of VBBOOK form
  96.     'Removed the call to VBBOUT so that the user
  97.     'can see the desktop
  98.     CenterForm vbbinp
  99.     vbbinp.Show            'move on to VBBINP form
  100.     Timer1.enabled = 0     'Turn off the timer
  101. End Sub
  102. Sub Timer1_Timer ()
  103.     vbbook.Hide              'Activated after 5 seconds
  104.     CenterForm vbbinp
  105.     'VBBout.Show              'which was set when the form
  106.     vbbinp.Show              'was designed (5000 mSec)
  107.     Timer1.enabled = 0       'Turn off the timer
  108. End Sub
  109.